home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / src-16f.lha / tools / worldbuild.lisp < prev    next >
Text File  |  1992-05-27  |  4KB  |  127 lines
  1. ;;; -*- Mode: Lisp; Package: Lisp -*-
  2. ;;;
  3. ;;; **********************************************************************
  4. ;;; This code was written as part of the CMU Common Lisp project at
  5. ;;; Carnegie Mellon University, and has been placed in the public domain.
  6. ;;; If you want to use this code or any part of CMU Common Lisp, please contact
  7. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
  8. ;;;
  9. (ext:file-comment
  10.   "$Header: worldbuild.lisp,v 1.12 92/05/28 01:06:03 wlott Exp $")
  11. ;;;
  12. ;;; **********************************************************************
  13. ;;;
  14. ;;; When loaded, this file builds a core image from all the .fasl files that
  15. ;;; are part of the kernel CMU Common Lisp system.
  16.  
  17. (in-package "LISP")
  18.  
  19. (unless (fboundp 'genesis) (load "target:compiler/generic/genesis"))
  20.  
  21. (defparameter lisp-files
  22.   `(,@(when (c:backend-featurep :pmax)
  23.     '("target:assembly/mips/assem-rtns.assem"
  24.       "target:assembly/mips/array.assem"
  25.       "target:assembly/mips/bit-bash.assem"
  26.       "target:assembly/mips/arith.assem"
  27.       "target:assembly/mips/alloc.assem"))
  28.     ,@(when (c:backend-featurep :sparc)
  29.     '("target:assembly/sparc/assem-rtns.assem"
  30.       "target:assembly/sparc/array.assem"
  31.       "target:assembly/sparc/bit-bash.assem"
  32.       "target:assembly/sparc/arith.assem"
  33.       "target:assembly/sparc/alloc.assem"))
  34.     ,@(when (c:backend-featurep :rt)
  35.     '("target:assembly/rt/assem-rtns.assem"
  36.       "target:assembly/rt/array.assem"
  37.       "target:assembly/rt/arith.assem"
  38.       "target:assembly/rt/alloc.assem"))
  39.  
  40.     "target:code/fdefinition"
  41.     "target:code/eval"
  42.  
  43.     "target:code/type-boot"
  44.     "target:code/struct"
  45.     "target:code/error"
  46.     "target:compiler/type"
  47.     "target:compiler/generic/vm-type"
  48.     "target:compiler/type-init"
  49.  
  50.     "target:code/defstruct"
  51.     "target:compiler/proclaim"
  52.     "target:compiler/globaldb"
  53.     "target:code/pred"
  54.  
  55.     "target:code/pathname"
  56.     "target:code/filesys"
  57.  
  58.     "target:code/kernel"
  59.     "target:code/bit-bash"
  60.     "target:code/array"
  61.     "target:code/char"
  62.     "target:code/lispinit"
  63.     "target:code/seq"
  64.     "target:code/numbers"
  65.     "target:code/float"
  66.     "target:code/float-trap"
  67.     "target:code/irrat"
  68.     "target:code/bignum"
  69.     "target:code/defmacro"
  70.     "target:code/list"
  71.     "target:code/hash"
  72.     "target:code/macros"
  73.     "target:code/sysmacs"
  74.     "target:code/symbol"
  75.     "target:code/string"
  76.     "target:code/mipsstrops"
  77.     "target:code/misc"
  78.     "target:code/gc"
  79.     "target:code/save"
  80.     "target:code/extensions"
  81.     "target:code/alieneval"
  82.     "target:code/c-call"
  83.     "target:code/sap"
  84.     "target:code/unix"
  85.     ,@(when (c:backend-featurep :mach)
  86.     '("target:code/mach"
  87.       "target:code/mach-os"))
  88.     ,@(when (c:backend-featurep :sunos)
  89.     '("target:code/sunos-os"))
  90.     "target:code/serve-event"
  91.     "target:code/stream"
  92.     "target:code/fd-stream"
  93.     "target:code/print"
  94.     "target:code/pprint"
  95.     "target:code/format"
  96.     "target:code/package"
  97.     "target:code/reader"
  98.     "target:code/backq"
  99.     "target:code/sharpm"
  100.     "target:code/load"
  101.     ,@(when (c:backend-featurep :pmax)
  102.     '("target:code/pmax-vm"))
  103.     ,@(when (c:backend-featurep :sparc)
  104.     '("target:code/sparc-vm"))
  105.     ,@(when (c:backend-featurep :rt)
  106.     '("target:code/rt-vm"))
  107.  
  108.     "target:code/signal"
  109.     "target:code/interr"
  110.     "target:code/debug-info"
  111.     "target:code/debug-int"
  112.     "target:code/debug"
  113.     ))
  114.  
  115. (setf *genesis-core-name*
  116.       (if (c:backend-featurep '(and :sparc :mach))
  117.       "/usr/tmp/kernel.core"
  118.       "target:ldb/kernel.core"))
  119. (setf *genesis-c-header-name* "target:ldb/lisp.h")
  120. (setf *genesis-map-name* "target:ldb/lisp.map")
  121. (setf *genesis-symbol-table* "target:ldb/ldb.map")
  122.  
  123. (when (c:backend-featurep :sunos)
  124.   (setf *target-page-size* 8192))
  125.  
  126. (genesis lisp-files)
  127.